5 PRINT"[147]"
10 IF F=0THEN F=1:LOAD"PIC.XMAS.D",8,1
20 FORL=0TO107:READA:POKE820+L,A:NEXT
30 POKE53280,0:POKE53281,1:POKE787,0
40 POKE53272,PEEK(53272)OR8
50 POKE53270,PEEK(53270)OR16
60 POKE53265,PEEK(53265)OR32
70 SYS820
80 GOTO500
100 DATA169,240,162,24,133,251,134,252,169,0,162,4,133
110 DATA253,134,254,162,3,160,0,177,251,145,253,200,208,249,230,252,230
120 DATA254,202,208,240,177,251,145,253,200,192,232,208,247,173,19,3,201
130 DATA187,240,24,169,187,141,19,3,169,216,162,28,133,251,134,252,169
140 DATA0,162,216,133,253,134,254,76,68,3,169,32,162,192,160,0,134
150 DATA251,132,253,133,252,133,254,162,32,160,0,177,251,145,253,200,208
160 DATA249,230,252,230,254,202,208,242,96,234
500 REM MAIN
501 FORP=54272TO54296:POKEP,0:NEXTP
502 POKE54296,15
503 POKE54277,9:POKE54278,5
505 FORZ=0TO51
510 READA:READB:READC:READD
520 POKE54272,A:POKE54273,B
522 POKE54276,17
525 FORT=1TOC:NEXTT
527 POKE54276,16
530 FORT=1TOD:NEXTT
550 NEXTZ
600 REM
605 FORZ=0TO52
610 READE:READF:READG:READH
620 POKE54272,E:POKE54273,F
622 POKE54276,17
625 FORT=1TOG:NEXTT
627 POKE54276,16
630 FORT=1TOH:NEXTT
640 IFZ=49THENPOKE54277,64:POKE54278,64
650 NEXTZ
680 POKE53265,PEEK(53265)AND223
685 POKE53272,20
690 PRINT"[147]":END
10000 REM BACKROUND NOTES
10005 POKE54284,64:POKE54285,64
10010 IFZ=11THENPOKE54279,10:POKE54280,5:POKE54283,33
10011 IFZ=15THENPOKE54279,10:POKE54280,10
10015 IFZ=19THENPOKE54279,15:POKE54280,15
10020 IFZ=21THENPOKE54279,13:POKE54280,13
10025 IFZ=23THENPOKE54279,11:POKE54280,11
10030 IFZ=24THENPOKE54283,32
10999 RETURN
50000 DATA 214,28,80,30
50001 DATA 214,28,80,30
50002 DATA 214,28,180,80
50003 DATA 214,28,80,30
50004 DATA 214,28,80,30
50005 DATA 214,28,180,80
50006 DATA 214,28,80,30
50007 DATA 94,32,80,30
50008 DATA 177,25,180,30
50009 DATA 227,22,30,5
50010 DATA 214,28,230,300
50011 DATA 75,34,80,30
50012 DATA 75,34,80,30
50013 DATA 75,34,180,55
50014 DATA 75,34,50,1
50015 DATA 75,34,80,30
50016 DATA 214,28,80,30
50017 DATA 214,28,180,70
50018 DATA 177,25,70,1
50019 DATA 94,32,80,30
50020 DATA 214,28,80,30
50021 DATA 177,25,80,30
50022 DATA 227,22,80,30
50023 DATA 154,21,115,200,205,10,80,30,114,11,80,30
50024 DATA 216,12,80,30
50025 DATA 107,14,80,30
50026 DATA 47,16,80,30
50027 DATA 107,14,80,30
50028 DATA 216,12,300,30
50029 DATA 216,12,50,1
50030 DATA 216,12,50,1
50031 DATA 216,12,80,30
50032 DATA 107,14,80,30
50033 DATA 47,16,80,30
50034 DATA 107,14,80,30
50035 DATA 216,12,300,30
50036 DATA 114,11,80,30
50037 DATA 216,12,80,30
50038 DATA 47,16,80,30
50039 DATA 107,14,80,30
50040 DATA 47,16,80,30
50041 DATA 47,16,80,30
50042 DATA 47,16,80,30
50043 DATA 107,14,80,30
50044 DATA 47,16,80,30
50045 DATA 107,14,80,30
50046 DATA 216,12,80,30
50047 DATA 114,11,80,30
50048 DATA 205,10,80,30
50049 DATA 37,17,300,80
60000 DATA 214,28,80,30
60001 DATA 214,28,80,30
60002 DATA 214,28,180,80
60003 DATA 214,28,80,30
60004 DATA 214,28,80,30
60005 DATA 214,28,180,80
60006 DATA 214,28,80,30
60007 DATA 94,32,80,30
60008 DATA 177,25,180,30
60009 DATA 227,22,30,5
60010 DATA 214,28,230,300
60011 DATA 75,34,80,30
60012 DATA 75,34,80,30
60013 DATA 75,34,180,55
60014 DATA 75,34,50,1
60015 DATA 75,34,80,30
60016 DATA 214,28,80,30
60017 DATA 214,28,180,70
60018 DATA 177,25,70,1
60019 DATA 94,32,80,30
60020 DATA 214,28,80,30
60021 DATA 177,25,80,30
60022 DATA 227,22,80,30
60023 DATA 154,21,115,200,205,10,80,30,114,11,80,30
60024 DATA 216,12,80,30
60025 DATA 107,14,80,30
60026 DATA 47,16,80,30
60027 DATA 107,14,80,30
60028 DATA 216,12,300,30
60029 DATA 216,12,50,1
60030 DATA 216,12,50,1
60031 DATA 216,12,80,30
60032 DATA 107,14,80,30
60033 DATA 47,16,80,30
60034 DATA 107,14,80,30
60035 DATA 216,12,300,30
60036 DATA 114,11,80,30
60037 DATA 216,12,80,30
60038 DATA 47,16,80,30
60039 DATA 107,14,80,30
60040 DATA 47,16,80,30
60041 DATA 47,16,80,30
60042 DATA 47,16,80,30
60043 DATA 107,14,80,30
60044 DATA 47,16,200,30
60045 DATA 107,14,200,30
60046 DATA 216,12,200,30
60047 DATA 114,11,200,30
60048 DATA 205,10,500,300
60049 DATA 177,25,80,30
60050 DATA 94,32,80,30